home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_498 / zoomdaemon / source / zoom-stubs.a < prev   
Text File  |  1992-05-06  |  4KB  |  88 lines
  1.         CSECT       text
  2.  
  3.         XREF        _cOpenWindow
  4.         XREF        _cCloseWindow
  5.         XREF        _cAddGadget
  6.         XREF        _cAddGList
  7.         XREF        _ZoomHandler
  8.  
  9.         XREF        _OldOpenWindow
  10.         XREF        _OldCloseWindow
  11.         XREF        _OldAddGadget
  12.         XREF        _OldAddGList
  13.  
  14.         XDEF        _aOpenWindow
  15.         XDEF        _aCloseWindow
  16.         XDEF        _aAddGadget
  17.         XDEF        _aAddGList
  18.         XDEF        _aOldAddGadget
  19.         XDEF        _aOldAddGList
  20.  
  21.         XDEF        _ZoomHandlerStub
  22.         
  23. _ZoomHandlerStub:
  24.         MOVEM.L A0/A1,-(SP)                ; push the parameters on the stack
  25.         JSR     _ZoomHandler               ; call the Input Handler routine
  26.         ADDQ.L  #8,SP                      ; pop the parameters off the stack
  27.         RTS
  28.         
  29. _aOpenWindow:
  30.         MOVE.L      _OldOpenWindow,A1      ; move old address to A1
  31.         JSR         (A1)                   ; JSR to old OpenWindow routine
  32.         MOVEM.L     D0-D7/A0-A6,-(SP)      ; save registers on stack
  33.         MOVE.L      D0,-(SP)               ; push Window pointer
  34.         JSR         _cOpenWindow           ; call our C OpenWindow
  35.         ADDQ.L      #4,SP                  ; pop the pointer
  36.         MOVEM.L     (SP)+,D0-D7/A0-A6      ; restore registers
  37.         RTS
  38.  
  39. _aCloseWindow:
  40.         MOVEM.L     D2-D7/A0-A6,-(SP)      ; save registers on stack
  41.         MOVE.L      A0,-(SP)               ; push pointer to Window
  42.         JSR         _cCloseWindow          ; call our C CloseWindow
  43.         ADDQ.L      #4,SP                  ; pop the Window pointer
  44.         MOVEM.L     (SP)+,D2-D7/A0-A6      ; restore registers
  45.         MOVE.L      _OldCloseWindow,A1     ; move old address to A1
  46.         JSR         (A1)                   ; JSR to old CloseWindow routine
  47.         RTS
  48.  
  49. _aAddGadget:
  50.         MOVEM.L     D2-D7/A0-A6,-(SP)      ; save registers on stack
  51.         MOVE.L      D0,-(SP)               ; push Position
  52.         MOVE.L      A1,-(SP)               ; push Gadget Pointer
  53.         MOVE.L      A0,-(SP)               ; push AddPtr Pointer
  54.         JSR         _cAddGadget            ; call our C AddGadget
  55.         ADD.L       #12,SP                 ; pop values
  56.         MOVEM.L     (SP)+,D2-D7/A0-A6      ; restore registers
  57.         RTS
  58.  
  59. _aOldAddGadget
  60.         MOVE.L      4(SP),A0               ; move AddPtr to register
  61.         MOVE.L      8(SP),A1               ; move Gadget Pointer to register
  62.         MOVE.L      12(SP),D0              ; move Position to register
  63.         MOVE.L      _OldAddGadget,A2       ; move old address to A2
  64.         JMP         (A2)                   ; JMP to old AddGadget routine
  65.  
  66. _aAddGList:
  67.         MOVEM.L     D2-D7/A0-A6,-(SP)      ; save registers on stack
  68.         MOVE.L      A2,-(SP)               ; push Requester Pointer
  69.         MOVE.L      D1,-(SP)               ; push NumGad
  70.         MOVE.L      D0,-(SP)               ; push Position
  71.         MOVE.L      A1,-(SP)               ; push Gadget Pointer
  72.         MOVE.L      A0,-(SP)               ; push AddPtr Pointer
  73.         JSR         _cAddGList             ; call our C AddGList
  74.         ADD.L       #20,SP                 ; pop values
  75.         MOVEM.L     (SP)+,D2-D7/A0-A6      ; restore registers
  76.         RTS
  77.  
  78. _aOldAddGList
  79.         MOVE.L      4(SP),A0               ; move AddPtr to register
  80.         MOVE.L      8(SP),A1               ; move Gadget Pointer to register
  81.         MOVE.L      12(SP),D0              ; move Position to register
  82.         MOVE.L      16(SP),D1              ; move NumGad
  83.         MOVE.L      20(SP),A2              ; move Requester Pointer to register
  84.         MOVE.L      _OldAddGList,A3        ; move old address to A3
  85.         JMP         (A3)                   ; JMP to old AddGList routine
  86.  
  87.         END
  88.